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PREFACE 

This instant provides a brief description of the major language features of 
FORTRAN Extended Version 4.8. FORTRAN Extended is designed to 
comply with the American National Standards Institute FORTRAN 
language, as described in X3.9-1966. 



The FORTRAN Extended compiler operates in conjunction with the 
COMPASS 3 assembly language processor under control of the following 
operating systems: 

• NOS 1 for the CONTROL DATA® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, 74 and 6000 Series Computer Systems 

• NOS/BE 1 for the CDC® CYBER 170 Series? CYBER 70 Models 71, 
72, 73, 74, and 6000 Series Computer Systems 

• SCOPE 2 for the CONTROL DATA CYBER 170 Model 176, CYBER 70 
Model 76, and 7600 Computer Systems 



Relocatable binaries compiled by versions of FORTRAN Extended prior to 
Version 4.7 cannot be run with CRM BAM 1.5 or AAM 2; they must be 
recompiled. In this instant CONTROL DATA extensions to the language 
are indicated by shading. 

More detailed information can be found in the following publications: 



Publication 
Publication Number 

FORTRAN Extended Version 4 Reference Manual 60497800 

FORTRAN Common Library Mathematical Routines 60498200 
Reference Manual 



CID Version 1 Guide for Users of FORTRAN 
Extended Version 4 



FORTRAN Extended Version 4 User's Guide 60499700 

NOS Version 1 Reference Manual, Volume 1 of 2 60435400 



NOS/BE Version 1 Reference Manual 60493800 

SCOPE Version 2 Reference Manual 60342600 



CDC manuals can be ordered from Control Data Corporation, 
Literature and Distribution Services, 308 North Dale Street, 
St. Paul, Minnesota 55103. 



This manual describes a subset of the features and 
parameters documented in the FORTRAN Extended 
Version 4 Reference Manual. Control Data cannot be 
responsible for the proper functioning of any features 
or parameters not documented in the FORTRAN 
Extended Version 4 Reference Manual. 
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LANGUAGE ELEMENTS 

SYMBOLIC NAMES 
Symbolic names are 1-6 or ? letters and digits; the first must be a letter. | 

FORTRAN CHARACTER SET 

Alphabetic: A to Z 

Numeric: to 9 

Special: = equal / slash . decimal point 

+ plus ( left parenthesis $ dollar sign 

- minus ) right parenthesis blank 

* asterisk , comma o^or- !: V-;%pt6 : ; 

Any character acceptable to the operating system can be used in Hollerith infor- 
mation and comments. Blanks are significant only in Hollerith fields. 

FORTRAN STATEMENTS 

Column Contents 

1 C 6r : S: or : i" indicates comment line 

1-2 CS indicate |ejsu* ii^u-e , f iri jthuc mode 1 

1 9. ^GMndieates: list direct iye. - 

1-5 Statement label 

6 Any character other than blank or zero denotes continua- 

tion, except on comment lines or list directives 

7-72 Statement 

73-80 Identification field; not processed by compiler, but printed 

with source listing 

Statements are written in columns 7-72; blanks are ignored except in Hollerith 
fields. All 80 columns can be used for data input. Statements can be labeled 
by an integer constant in the range 1-99999. If a C, $ or * appears in column 1 

wiiticut o :t oi < limn 2 the remainder of the card is ignored by the com- 

piler but printed with the source listing as a comment 



> ■ l I! 1 1. I- ■ 1 



CONSTANTS 



A constant is a fixed quantity. Table 1 lists the types of constants and gives 
a brief description of each. 



TABLE 1. LIST OF CONSTANTS 



Constants 


Form 


Examples 


Integer 


l 2. m 


2 




1<m<18 


247 




.Range: -(2 s9 - 1 ) to 2 59 -1 






Integer addition and subtraction results can 


31456932 




range from -(2 59 -1) to 2 59 -1. Integer mul- 






tiplication and division operands and results 






can range from -(2 48 -1) to 2 48 -1. Integers 






used as a DO index or as a subscript must 






be in the range from 1 to 2 17 -1. 




Real 


n.n ,n n. n.nE±s .nE±s n.E±s nE±s 






n Coefficient < 15 decimal digits 


7.5 
3.22 




E±s Exponent 


42.E1 
314.E05 




s Base 10 scale factor 


700. E-2 




Range 10~ 293 to 10 +322 


.5 
0. 




Accurate to approximately 14 decimal 






digits 




Double 


n.nD±s .nD±s n.D±s nD±s 


5.834D2 


Precision 




7.D2 




n Coefficient < 29 decimal digits 


9.2D03 
14.D-5 




D±s Exponent 


3120D4 
1.D0 




s Base 10 scale factor 






Range 10" 293 !© 10 +322 






Accurate to approximately 29 decimal 






digits 




Complex 


(r1,r2) 


d.,7.54) 
(-2.1 E 1,3.24) 




r1 Real part 


(0..-1.) 
(4.0,5.0) 




r2 Imaginary part 






Each part has same range as a real constant 





TABLE 1. LIST OF CONSTANTS (Contd) 



Constants 


Form 


Examples 


Octal 


n,...fl m B 
1<m<20 


525252B 


Hollerith 


i.Hl nRf 

r.LI 

•M* or "f" 

1 1<10 il * '1 i' |U! 

H left justified with blank fill 


6HABCDEF 


KRfiglltjus^ifteci ^^bwary : :iefv:iil)p:Vy£^ 

1 left justified with ?in > ' wj fiH 

A HolL-nth 'fring delimited L'v l^ji'Pd 

symbols ^ oi qyotatidr m'tks can he 
used siiywhei^ the H t..rm of the 
Hotlenth cor !i'il w iv ,.ed Fot 
: example : : : ; 

IFIV EQ=YES=> GO TO 20 

PRINT 1,=±SQRT = #,SQRT|.5) 
1 FORMA 1 (/= 10,1 1b >' 


7RJUST1FY . 
7I.THE FND 

#ABCMF* 
"ABCDEF" 


Logical 


.TRUE, or .T. 
.FALSE, or .F. 


LOGICAL X1.Z2 
X1 - .TRUE. 
Z2 - .FALSE. 



VARIABLES 

A variable is a quantity that can be changed. A variable's symbolic name is 
composed of 1-6 or 7 letters or digits; the first must be a letter. 

Table 2 lists the types of variables and gives a brief description of each. 

A variable not defined in a type declaration is real if the first character of the 
symbolic name is any letter other than l,J,K,l M N dnn n the M-e ib not 
changed by an IMPLICIT statement m that program unt. The default implicit 
;!y : pi : rtg^ii-3 : y 

A-H, O-Z Real 

l-N Integer 



TABLE 2. LIST OF VARIABLES 



Variables 


Form 


Examples 


Integer 


Range -<2 59 -1) to 2 59 -1. As subscript 


ITEM 




or index of a DO statement, maximum 


JSUM 




value is 2 17 -1 . As a result of multipli- 


KOOL 




cation or division or conversion between 


INTEGER X 




real and integer, maximum value is 
2 48 -1. 




Real 


Range 10~ 293 to 10 +322 , approximately 


AVAR 




14 significant digits. 


SUM 
TUF 
BETA 
REAL 1 


Double 


Must be defined explicitly in type de- 


DOUBLE PRECISION 


Precision 


claration. Range 10T 293 to 10 +322 , 


"OMEGA.X.B 




approximately 29 significant digits. 


DPUGI £ 




Occupies two storage words. 




Complex 


Must be defined explicitly in type 


COMPLEX A,D 




declaration. Occupies two storage 


COMPLEX P2 




words; each contains a number in real 






variable format, and each number can 






range from 1CT 293 to 10 +322 . 




Logical 


Must be defined explicitly in type 


LOGICAL L3,C 




declaration. 


LOGICAL L2,R 



ARRAYS 

An array name can have up to three subscripts. Zero and negative subscripts 

ill'i.-ril *-.i ih-.,' 1 ir it; ■■ jfi I-..- Jin, u aliH ]iltkrr.s,;,] Au .uA.... n .. .'*. _ - . 



1 ' I ved *• ' upCi c be ty vif ant n ■ e> > c, n A nor 
»ger subscript value is truncated to integer If th? number of subscripts in a 

% r<?ru i te T l in the di-cl re.l di i n^iom of th ray, the compile i 

lJ °< - r A Uffi The r j nber of subscript expressions in a 

•rence must not exceed the number of declared dimensions. 



Table 3 can be used to find an element in the linear sequence of storage 
locations. 



TABLE 3. ARRAY ELEMENT POSITION 



Number of 
Dimensions 


Array 
Dimension 


Subscript 


Location of 

Element Relative to 

Starting Location 


1 
2 
3 


ALPHA! K) 

ALPHAIK.M) 

ALPHAIK.M.N) 


ALPHA(k) 

ALPHA(k.m) 

ALPHA(k,m,n) 


<k-1)*E 

(k-1+K*(m-1))'E 

(k-1+K*(m-1+M'(n-1)»*E 



The following notations are used in table 3: | 

• K, M, and N are dimensions of the array. 

• k, m, and n are actual subscript values of the array. 

• 1 is subtracted from each subscript value because the subscript starts 
with 1, not 0. 

• E is length of the element. For real, logical, and integer arrays, 
E = 1. For complex and double precision arrays, E = 2. 

PRINTER CONTROL CHARACTERS 

The first characters of each line in a print file perform the following functions: | 
Character 



Blank 

1 

Any other character 



Action 

Space vertically one line then print 

Space vertically two lines then print 

Eject to first line of next page before printing 

No advance before printing; allows overprinting 

3efer to o J 1 -) r ijfer en i't 

STATEMENT FORMS 



The following symbols are used in the descriptions of statements: 

v variable or array element 

sn statement label 

iv integer variable 

name symbolic name 

u input/output unit: 1- or 2-digit decimal integer constant; 

integer variable with value of: 0-99 or a Hollerith value 
denoting the file name, left justified with zero fill. 

fn format designator; such as a statement label, array name, 

variable, or array element 
p dummy arguments that agree in order, type, and number to 

the actual arguments passed to the subroutine 
b dummy statement label arguments that agree in order, type, 

and number to the actual statement labels passed to the 

subroutine 



earn 
erl 



iolist 
stat 



indexing parameter 

string of 1-5 octal digits 

string of 1-70 characters 

arithmetic or masking expression 

relational or logical expression 

variable or array name 

input/output list specifying items to be transmitted 

any unlabeled executable statement other than END, DO, or 
another logical IF. 



ASSIGNMENT STATEMENTS 






Form 


Examples 






v = arithmetic expression 


A= B + C 


logical v = erl 


LOGICAL L.M.N 




L = M .AND.N 




v ~ masking expression 


CAT = 52S2B .OR. Z 


MULTIPLE ASSIGNMENT 




v, = Vj = . . . v_ = expression 


X - Y-Z- 110. + B)/SUM(1) 


F LOW CONTROL STATEMENTS 




GO TO sn 


GO TO 30 


GO TO (sn, sn m ), iv 


GO TO (1,4,7,2), N 




GO TO (sn, sn m l iv 


GO TO (3,6.10.1) J 




GO TO (sn, sn m Leam 


GOTO (1.2,9,4), A + B 




GO TO {sn, , . . . , sn m ) earn 


GO TO (3.4,5,6! N * J 




GOTO ivlsn, sn m t 


GOTO NEXT (1,2,3,41 




GO TO iv,(sn, sn m ) 


GO TO LSWTCH, (10,20, 


30,40) 


ASSIGN sn TO iv 


ASSIGN 10 TO LSWTCH 


IF (earn) sn,,sn2,sno 


IF (l-N) 3,4,6 




; | F {fiarn}: sn j ,sri^ ■:;;; ■C 


IF (I'Y'K) 100,200 


IF (erl) sn 


IF (P.AND.Q) RES= 7.2 


I F ![er f) sn ^.srw 


IF (K.EQ. 100) 60,70 


DO sn iv = m^rrwmo 


DO 100 I = 1,10,2 


DO sn iv = m,,iri2 


DO 2 J= 1,5 





Form 


Examples 


sn CONTINUE 
PAUSE 
PAUSE n 


100 CONTINUE 
PAUSE 
PAUSE 2 


PAUSE *c . . . c* 


PAUSE A CHANGE TAPE * 


STOP 

STOP n 


STOP 
STOP 25 


STOP *c . . . c* 


STOP * END Of RUN # 


END 


END 



TYPE DECLARATION 



Arrays can be dimensioned in type specifications. 



INTEGER name*, . . . , name n 

TYPE INTEGER name, na 

REAL name,, . . . , name 

TYPE REAL name, , name^ 

COMPLEX name,; .... name n 
TYPI COMPl EX name, n. 



DOUBLE PRECISION name,, 



INTEGER A,B,C(10) 
TYPE INTEGER X.Y.N 
REAL NEXT.XI5) 
TYPE REAL N.J.CAT 
COMPLEX CC,J 
TYPE COMPLEX NON,Zi3) 
.name' DOUBLE PRECISION DP1.DP2 





DOUBLE DP3 


TYPE DOUBLE PRECISION name, 


,-. .j ; narne n I 




TNPF DOUBLE PW! CISION C r.DOG 


TYPE DOUBLE name^, . . . , narpe n 




' iP [ T^Lt 1 N b ,. ' 


LOGICAL name, name n 


LOGICAL L1.L2 






TYPE LOGICAL LL.LN 








!, ..'lI -1-/ L .. C ! r > JhO» 1) 


a« !<- ' ! no r e j 1 hat a i 


characters or t-i,t J " L charai rs Itirst and 


i i 1 st.jirattn h» r m n 


js sign) separat'd 1 \ c-mmas 



EXTERNAL name,, . . . , name 



EXTERNAL DECLARATION 
EXTERNAL ABS 



I 



STORAGE ALLOCATION 



Form 


Examples 


type name^ (d..) 


REAL CJ (3,3) 


TYPE type name 1 (d,) 


TYPE REAL DJ (101 



DIMENSION name, (d,l narr» n (d n l 

DIMENSION SUM (101 

dj array declarator, one to three integer constants; in a subpro- 

gram, one to three integer constants or variables 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION, 

LOGICAL, or DOUBLE 

COMMON v, v n COMMON A,B,C 

COMMON/blknamej/v, v n . . . /blkname^v, v n 

iCOMMON/BLK/D,E,F/CAT/X,Y,Z(10) 
COMMON//NEXT,JAY(3) 
blkname symbolic name or 1-7 digits 

// blank common 

Vj variable or array name 

DATA vlistj/dlist,/ vlist n /dlist n / 

DATA (vUst,»dl.5t,l. . .(vlist n -dl is i n l 



DATA A,B,C/3.,27.5,5.0/ 

DATA (X" l.),(Y 0.) 



jrrav lame array elements, variable names or i i li ed DO !' I 
separated by commas 

one or more constant list forms separated by commas, with rf 
an integer constant repetition factor: 







EQUIVALENCE (glist,) ,(glist n l EQUIVALENCE (N,J),(X,Y) 

glistj two or more variables, array elements, o p array nan e! 

separated by commas 



LE EL 1 ,, 


--,a n | LEVEL 3,X,,Y^ 


I 




a- 


vj iJillK fir L*ify "jcnR 



PROGRAM UNITS 



PROGRAM name (file, . ,filej 



PROGRAM • 3i e 



or iOn<WM AdIMPUT.OUTPUT) 
PROGRAM B 



Form 


Examples 


FUNCTION name(p 1 p„l 

type FUNCTION name (p, p n l 

BLOCK DATA 


FUNCTION QRATERIA.B) 
REAL FUNCTION D(X,Y) 
BLOCK DATA 


EH >'l •>! - • ■ . 


6 jJO ' l- 1 - 8D.? 


SUBROUTINE name (p., p n ) 

SUBROUTINE name 


SUBROUTINE X(C,D,E) 
SUBROUTINE PGM 


SUBROUTINE iarm <p 1 i,' RETURN: ..., b n| ] 

SUBROUTINE SUB(X.Y), HfcTURNS IM.N) 

SUBROUTINE name, RETURNS (b, ,b > 

SUBROUTINE SUBJ RETURNSIJ K LI 



ENTRY POINT 



name (p^, . . . , p n ) = expression 



ENTRY BOX 



STATEMENT FUNCTIONS 
ADDIX.Y.C.D) = X+Y+C+D 



SUBPROGRAM CONTROL STATEMENTS 
CALL name I CALL JIM 

CALL name Ip, p n ) | CALL JIM I A, 2) 

&iXffim£'<j>fi??;'t>„l RETURNS IU^T"NlfEJr» - ?! 

CALL JOHN (X,Y) RETURNS 12,3! 



CA1 [ name.RETURNS i i, b In ) 

RETURN 

RETURN i 



CAI , S IB4.R1 URNS , .. - 

RETURN 

RETURN M 



J 1! M' t 1 'i t !tl I 



INPUT/OUTPUT 



PRINT fn.iolist 


PRINT 4,A,B,N 


PRINT fn 


PRINT 20 


PRINTCu.fn/ioKst.V; 


PRINT (6,17) A 



Form 


Examples 


PRfNT'.iolbt 


PRINT », N, (C(1),I=1,N) 


PRIMTIu.fnl 


PRINTfNUM, 46) 


PRINT(u,*l iolist 


' (II 1 \<i*> K ..R 1 ,) 


PUNCH fn.iollst 


PUNCH 2.X.Y.Z 


PUNCH fn 


PUNCH 30 


PUNCH(u.fnl iolist 


PUNCH(NUM,FMT)J,K 


PUNCH'.iolist 


PUNCH *,^X ---A,X 


PUNCHfu,*) iolist 


PUNCH (4.*) All). A(JI 


PUNCH(u.fn) 


PUNCH (45,86) 


WRITE(u,fn) iolist 


WRITE (4,27) X,Y,Z 


WRITE(u.fn) 


WRITE (2,30) 


WRITE fn.iollst 


WRITE 203, B(2) 


WRITE fn 


WRITE 66 


WRITE (u) iolist 


WRITE (3) A,B,C 


WRITE (u) 


WRITE (3) 


WRITEIu,*) iolist 


WRITE (4,*) AUCO 


WRITE'.iolist 


WRITE *,J,K 


READ(u.fn) iolist 


READ (5,100) X.Y.Z 


READ(u.fn) 


READ (5,100) 


READ In.iolist 


READ 100,A,B,C 


READ fn 


READ TOO 


READ(u) iolist 


READ (3) JN.AB 


READ(u) 


READ (5) 


READIu,*) iolist 


READ (5,*) Q,R 


READ'.iol.st 


ri lD*,(C(J),D(J),J 1 N) 


BUM V.R IN (u,p) (s,b) 


BUFFER IM (1,1)(R(1),R(512S) 


BUFFER OUT|.,.p) (a.b) 


BUFFE II ill 1) (B(M),B(N)) 


a.b fn 1 and last word ol a« 


}U kfb b< f ,'i en d 


p inte jt-i i nstaht 01 nt j c i 


jt able il, e' n .) ir ry ' o< d p.hl/ 


NAMEUST'qnjulJ rljm r p.sj j,,/ 


, . '0oup narneo/at ■ - ■ - ^,, 




namelist;ship'ii,i2,a.b 



Form 


Examples 


Bi&p^u,gFBu|5-narT!»«:;": fitiijil;;; 


READ (S.SHIP) 


WRITS (u.gimip Bjirie) 


WRITE (6.SHIP1 


REAE3 group rame 


READ SHIP 


PRINT liiclLipiriame 


PRINT SHIP 


PiriCI 1 ^rct,!. n € 


PUNCH SHIP 


gratis - ne rnM>:ii< _ ' f i yipig;;::tn join 1 fj 



ENC( lir '' in 3lis1 



INTERNAL TRANSFER OF DATA 
ENCODE (40,1,ALPHA) A,B,G 
DECODE (77,17,CARD) INK 



length of recon! in characters; unsigned ritegef constant ot 
si r ,ji o . J 'jt -itidVp 

Stai ihg IpcatiQn >> eec d 'a >io s * ' tfrt - nar e 



FILE MANIPULATION 
REWIND u REWIND 3 

BACKSPACE u BACKSPACE LUN 

ENDFILEu ENDFILE4 

FORMAT SPECIFICATION 
sn FORMAT (f Sl fs n ) 100 FORMAT <I6,F7.3,214) 

f s . one or more field specifications separated by commas and/or 

slashes and optionally grouped by parentheses 

DATA CONVERSION 

Leading blanks are not significant in numeric input conversions; other blanks 
are treated as zeros. When an all-blank field is read with a Hollerith input 
specification, each blank character is translated to a display code 55 Q . The 
output field is right-justified and blank-filled for all output conversion. 

srEw.d Single precision floating point with exponent 2E13.3 

I=. 7 ,jr P, ifliu oroi i ioit.1' I n.jt Li02E1 

ti t 5 r ,ww(Kii!i w'lispt jfi d;:%pohetit:ienc(th E;3[ 2;Qp3 

srFw.d Single precision floating point without exponent F7.3 

srGw.d Single precision floating point with or without G14.6 

exponent 

srDw.d Double precision floating point with exponent 2D 10.4 

60497900 B 11 



Examples 



rlw 


Decimal integer conversion 


419 


rlw.z 


ni h , , ,r- fiet niiimii i- 


16.2 


rl_w 


Logical conversion 


2L5 


rAw 


Alphanumeric conversion 


A7 


rRw 


Mphanummc comm sion 


■1R10 


rOw 


Octal intocjei convcisiors 


05 


rOvv.z 


0« sJ i i eger ' !* ( . pe '• i ' rnili u ij -f j ,i 


024 16 


rZv./ 


- 'SiV-i nisi com ,i v->n 


Z8 




s optional scale factor of the form: nP 





r optional repetition factor 

w nonzero unsigned integer constant indicating field width 
d unsigned integer constant indicating digits to right of decimal point 
e nonzero unsigned integer indicating digits in exponent field 
z integer specifying minimum number of digits 
nX Intraline spacing 9X 



nH . 



8H THE END 
■ Hollerith *FINIS* 

..# TEST / --£ 

•m? ; resT' 

Format field separator; indicates end of FORTRAN /8HNEW LINE/ 
record 

i e>i mm tal ijat m cot -I hf.s - oll.rriri i |;0 

'_ . -i l jJfe 1 1, ut> t n rie;;;rigmtrrios i* L> s V8 2 

f'uc trie . rrerlt , „ ia'j » r> the npot/output 
irA are inteiprftten ^ display ..oile 

N i!i ei'r . „ t itjr , , fj -| l]t j, ig{ |, , |, A _ 

input "output list supplier J positive integer value 

to ht tised i pjace 3 the fo tnp rfe t 
iriafj 6 in tit*- inj&i? j L i put |i t 



OVERLAYS 

CALL OVERLAY (fnamc.i.i.reeall.kl 

CALL OVERLAY {4HTEXT,1,0,6HRECALL) 

•y'J-'-.y octal with a B oi decimal equivalent level numbers 

rei |J jt 4 'F', i' L t<3 ' Ir, tij f; layer ia|j;a a< v , , n, t mory 

■iS-Vl L , " ^l " 3, Hollerith constant naiw of lihrwy containing overlay 

Anv pth|j riG.fi ;?erf yaftre on* isy loaded from glotja! library 



Form 



Examples 

C EF i_ < r i I > (,OV=4 



ft ->r< i |e ' he ( gene ated >ie la.jy b " witejh 

■ :■-■ j:;j ■ ; y > ■' ■ detai : - Jfkel "numbers: ;;gf the;;; oyaiia y ; .■ ■:;'■: 

i e< hv u jit 3pi Ob ! i (j a i* \ t d iu i overlay) 

u n i i;a cJej m ti i tm rl i hi ji I el q e Ia;\ . i eture 

oijlionjl (valid Only for 0.0 Ov?il4tl 

DEBUG STATEMENTS 

PI S * (i r r- lit ! if*?! i ( (nets deb to, mod t j 

ecifi d, debugging statemen are a tod a nr n 

i j bi,i ;taten ents i written in column / //>; columns 1 r j ? of c >^ ;ta - 
nwnt must contain C$. Any chtii'acter, other than Uldnk or reio. in r.olumn 6 

denotes ^ continuation line. Columns 3, 4, ano b of a continuation itne mubl 

iffi Maik ■ ■;;■■;;;■ 

C$ DflBUG 

0$ DS'-. 1 i (ban e^ , rvamp^j 

G$ 3T_/ pi; rid , , bounds, 

C$ DEBUG 



"I 



with n kiogrsrrt unit 



C$ /"> H I A/ na i y to | / 1 o u nds j , . . . . taou nd g , ^ . . . 

riai ic^ -o ji <',.. ,1 ounds : n 

CS DEBUG (aime,. . namej 

■■■■ : '■■ ■'■■ ■■■■■■ ®*-Xr r % !: -' :i : "Q Q ::: -i-} fi::;::;ii: :P : '■■■!* ■■: :: S ■'■■ ■ = II = ! ee =:!!-::= = ::::==:-!!Je e == :;>^; 
:£$■ ■: ■^DE-BUG ^Irjli; 

bounds ( : iij;dy ri^Jni >l r>e osition n<-t tiiinal ni pi. rfjoh 

{ i ,i ,i - jis lii eypbsi r b debugged 

n j n i rial me p'c - last I r j n * >qi i 

■ " r-t * fii l.i\m. i' n gram by ermibaTrineypqsitip 

I ) ii try I 151 l;i es : bf : :p( >.! if 

C$ ARRAYS (a., aj 



C$ ARRAYS 




a i 


.-:■ i - v names 


C$ CALLS (s,. 


....«„> 


C$ CALLS 




Sj 


U JlOLtTin Hit- 


60497900 B 





a :• I i , 


' ■ '„) 


^S Fl ■>:':■ 




h 


'■:!::': (f Lflltttfe ft- *<$0#5 :: : : : 


GS GOTOS 




~." i' C» . 




. . T -i "- 1 


. . , <g 


c i 


■ : vNflrgWbiiirilmfe:!:.;; 




r ; ahk i.^iiiiT.i'fibLiot.^l i j i . f v s 




"J h Ui < !,!,(') it i ( i **'h JT.I ' .1 




siiah! < - 1 , - . ii ' > ,; ops* ! 




■ :f:. m$tPti&g : [:pp&$wti;^6 




^)^Sl:^ 




l;7:0t0&-. :■■' : : ; : vr##^'i-y ii; Z^d: 




VA Jl fu(E n j oi lilt i ~i<r 


CS FRACi (Iv) 




;S TRACE 




smmsmsS: 


levef mjrniiftr: U trueif i J J! on ,, i, in , ^ 




to anrJ in >m ig !o n it in 1 < J 


CS OFF 




C$ OFF (x,, . . 


, x n ) 




::!! - : :-: : art#.-3ebug:;^ 



LIST DIRECTIVES 

! it Ii rod ' 2 if tU, vont^.n * ill I -u. nth t( *c»r», i 

ALi Ot ii' i N W appearing anyr/h i thi olnmr 

" MST.NQNE Stnps sou<c ptu]iafn Ii tin n-i ' an >* ) he oihci 



*M.L 



COMPASS SUBPROGRAM IDENTIFICATION 

l||k"T m§i (Starts >r. eoji rn U; Segins COMPASS 

s#P (Starts in cblumr I Ferftiftiate: subprogran 



FORTRAN INTRINSIC FUNCTIONS 

An intrinsic function is a compiler-defined procedure that returns a single value. 
The FORTRAN Extended intrinsic functions are shown in table 4. 



TABLE 4. FORTRAN INTRINSIC FUNCTIONS 





Arguments 


Type of 


Symbolic 




Definition 


Max 




Example 




No. 


Type 


Function 


Name 


Absolute value |A[ 


1 


Real 


Real 


ABS 


Y=ABS(X) 






Integer 


Integer 


IABS 


J=IABS(I) 






Double 


Double 


DABS 


DOUBLE A.B 
B=DABS(A) 


Truncate A: sigh of 


1 


Real 


Real 


AINT 


Y«AINT(X) 


A times largest integer 
<lAl 1 




Real 


1 nteger 


INT 


l=INT(X) 




Double 


1 nteger 


IDINT 


DOUBLE 2 












J=IDINT(Z) 


Remaindering 


2 


Real 


Real 


AMOD 


B=AMOD(A1,A2) 


AKmod A2) 




1 nteger 


Integer 


MOD 1 " 


J-M0D(I1,I2) 


Choosing largest of 


63 


1 nteger 


Real 


AMAXO 


X=AMAXO(l,J,K) 


2-63 values: max 




Real 


Real 


AMAX1 


A=AMAX1(X,Y,Z) 


(A1 An) 




Integer 


1 nteger 


MAXO 


L=MAXO(l,J,K,N) 






Real 


1 nteger 


MAX1 


l=MAX1(A,B) 






Double 


Double 


DMAX1 


UOUBLP W,X,Y.Z 
W=DMAX1(X,Y.Z) 


Choosing smallest of 


63 


1 nteger 


Real 


AMINO 


Y=AMINO|l,J) 


2-63 values: min 




Real 


Real 


AMIN1 


Z«AMIN1(X,Y) 


(A1 An) 




Integer 


Integer 


MINO 


L=MIN0(l,J) 






Real 


1 nteger 


MINI 


J=MIN1(X,Y) 






Double 


Double 


DMIN1 


DOUBLE A.B.C 
C-DMINKA.B) 


Convert from integer 


1 


Integer 


Real 


FLOAT 


X1=FLOAT(l) 


to real 












Convert from real to 


1 


Real 


1 nteger 


IFIX 


IY=IFIX(Y) 


integer 












Transfer sign of A2 to 


2 


Real 


Real 


SIGN 


Z=SIGN(X,Y) 


lAII, +A1 if A2=+0, 




Integer 


Integer 


ISIGN 


J=ISIGN(I1,I2I 


-A1 if A2=-0 




Double 


Double 


DSIGN 


DOUBLE X.Y.Z 
Z=DSIGN(X,Y) 


Positive difference: if 


2 


Real 


Real 


DIM 


A=DIM(C,D) 


A1 > A2 then A1-A2. 




Integer 


1 nteger 


IDIM 


J=IDIM(I1,I2) 


If A1 < A2 then 












Absolute value of a 


guments must be < 2 48 - 


1. 




^MOD or AMOD (a,t 


) is defined as a-[a/b] b. 


where [X] 


is the largest 


integer that does no 


exceed the magnitude o 


X with sis 


n the same as X. 



TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contd) 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Lbgiea proel let u * 
by b : ft Iflgipf^Nl 


63 


any 


no mod? 


AND 


O Nt)(X,Y,2) 


f ! J U 1 > 

j n <. / t 
i Ore > a'ae" 


' i 


any 
tyi 


no mod* 


OR 


DOR(XXZ) 


bit exchjuve OR of 2 

!0 ' At***" 


63 


guy 

type 1 


w ni d 


XOR 


D XOR{X Z) 


Con pi mcnt t ii ! ' 
bit Boolean comple- 

■N 1.1 .1 • 


I 


;iny 

1 'pe' 


n moc& 


COMPL 


B=COMPUA) 


ShH A , f h . r>ps 
tion ii 1 i 
! r [ r hx < 
tf it , jxte 
or ! s J t i 
< It | < 60 n 


2 


Al; 

"■3ily; : , : :; : ;;: : 
type 

!: ■■ 
tnteget 


n i nod 


SHiF-T 


B-SHIFTfA,!) 


[\4a 1 > st . i ig ' 
! ; ^itS:;;to:;'1::;st^rti^9::^i: : ; V ;. : . 
!c< i o 1 wo d 


1 


!:ii#gi r 


no inorje 


MASK 


A*=MASK( 1 ) 


Obtain most significant 
part of double preci- 
sion argument 


1 


Double 


Real 


SNGL 


DOUBLE Y 
X=SNGL(Y) 


Obtain real part of 
complex argument 


1 


Com- 
plex 


Real 


REAL 


COMPLEX A 
B=REALIA) 


Obtain imaginary part 
of complex argument 


1 


Com- 
plex 


Real 


AIMAG 


COMPLEX A 
D=AIMAG(A) 


Express single preci- 
sion argument in 
double precision form 


1 


Real 


Double 


DBLE 


DOUBLE Y 
Y=DBLE(X| 


For a double precision or complex c 
part is used. 


rgument, only the h 


gh order or real 


Function is undefined if outside the 


se bounds. 





TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contdl 



Definition 


Arguments 


Type of 
Function 


SymboMc 

Name 




Max. 
No. 


Type 


Example 


Express two real argu- 
ments in complex 
form: A1+A2i where 

i 2 =-i 

Obtain conjugate of 

complex argument: 
a-bi where A=a+bi 


2 

1 


Real 

Com- 
plex 


Complex 
Complex 


CMPLX 
CONJG 


COMPLEX C 
OCMPLX(A1,A2) 

COMPLEX X,Y 
Y=CONJG(X) 


Hen m =mdo n fiui t 
hi ur fc i n 
uteri / r r , 
d imn / i j (K j nt '<s 
ignored 

Obta t addi 
r.am-rd variable Or 

i i iv iim#t; ot 
ntry point < named 

f> 61 1 i ubpt (J III 


7 
1 


any-' - 

:: : any :: -|;-:: : ; 


Real 
In! get 


RANF 
LOCF 


Y=RANF|A) 
J-LOCr(Q) 



FORTRAN LIBRARY BASIC EXTERNAL FUNCTION 

A basic external function is a predefined procedure (used to evaluate standard 
mathematical functions) included with the FORTRAN common library. Table 
shows the FORTRAN library basic external functions. 

TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Exponent: e to 


1 


Real 


Real 


EXP 


Z=EXP(Y) 


Ath power 




Double 


Double 


DEXP 


DOUBLE X.Y 
Y=DEXP(X) 






Complex 


Complex 


CEXP 


COMPLEX A,B 
B=CEXP(A) 


Natural logarithm 


1 


Real 


Real 


A LOG 


Z=ALOG(YI 


of A 




Double 


Double 


DLOG 


DOUBLE X,Y 
Y=DLOGIXI 






Complex 


Complex 


CLOG 


COMPLEX A,B 
B=CLOG(A) 


Logarithm to 


1 


Real 


Real 


ALOG10 


B=ALOG 10(A) 


base 1 of A 




Double 


Double 


DLOG10 


DOUBLE D,E 
E=DLOG10(D] 


Trigonometric 


1 


Real 


Real 


SIN 


Y-SIN(X) 


sine of A 




Double 


Double 


DSIN 


DOUBLE D.E 
E=DSIN(D) 



TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) 





Arguments 


Type of 
Function 


Symbolic 

Name 


Example 


Definition 


Max. 
No. 


Type 


Trigonometric 




Complex 


Complex 


CSIN 


COMPLEX CC,F 


sine of A (cont) 










CC=CSIN(F) 


Trigonometric 


1 


Real 


Real 


COS 


X-COSY(Y) 


cosine of A 




Double 


Double 


DCOS 


DOUBLE D,E 
E=DCOS(D) 






Complex 


Complex 


CCOS 


COMPLEX CC,F 
CC=CCOS(F) 


Hyp< bol i ' IE 


1 


RiJal 


Real 


SINH 


I; .SINH (A) 


a: A 




\y,vb\s 


>;i bi 


DS1NH 


DOUBLE D,E 
E»0 INHID) 


Hyper Jv> ic n^m: 


1 


H »,il 


Real 





n-CQ"H(A) 


°* A 




[ It 1 


iVjubk 


BCOfJH 


,'•• IBLI D,E 
F~L- OSH(D) 


Hyperbolic 


1 


Real 


Real 


TANH 


B=TANH(A) 


tangent of A 




Double 


Double 


DTANH 


DOUBLE D,E 
E=DTANH(D) 


Error Function 


1 


Real 


Real 


ERF 


A1-ERFIA) 


Complementary 


1 


Real 


Real 


ERFC(A) 


Y-ERFC(X) 


Error Function 












Hyperbolic 


1 


Real 


Real 


ATANH 


Y=ATANH(D) 


Artangent of 












A where |A|<1 












Trigometric 


1 


Real 


Real 


SINH 


Z=SINH(C) 


Sine in 












degrees of A 












where |A|<2 47 












Trigometric 


1 


Real 


Real 


COSD 


W=COSD(E) 


Cosine in 












degrees of A 












where |A|<2 47 












Trigometric 


1 


Real 


Real 


TAND f 


Y=TAND(X) 


Tangent in 












degrees of A 












where |A|<2 47 












Square root 


1 


Real 


Real 


SORT 


Y=SQRT(X) 






Double 


Double 


DSQRT 


DOUBLE D,E 
E-DSQRT(D) 






Complex 


Complex 


CSQRT 


COMPLEX CC,F 
CC=CSQRT(F) 



TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Arctangent of A 


1 


Real 


Real 


ATAN 


Y=ATAN(X) 






Double 


Double 


DATAN 


DOUBLE D,E 
E-DATAN(D) 


Arctangent of 


2 


Real 


Real 


ATAN2 


B=ATAN2(A1,A2) 


A1/A2 




Double 


Double 


DATAN2 


DOUBLE D,D1,D2 
D=DATAN2[D2.D2I 


Remaindering 


2 


Double 


Double 


DMOD 


DOUBLE DM.D1.D2 

DM-DMOD(D1,D2] 


Modulus: square 


1 


Complex 


Real 


CABS 


COMPLEX C 


root (a 2 +b 2 ) for 










CM-CABS(C) 


A=a+bi 












Arccosine of A 


1 


Real 


Real 


ACOS 


X-ACOS(Y) 






Double 


Double 


DACOS 


DOUBLE D.E 
D'DACOSIEI 


Arcsine of A 


1 


Real 


Real 


ASIN 


X-ASINIY) 






Double 


Double 


DASIN 


DOUBLE D.E 
D = DASINIEI 


Trigonometric 


1 


Real 


Real 


TAN 


X'TANIYI 


tangent of A 




Double 


Double 


DTAN 


DOUBLE E,D 

E-DTAN(D) 


The argument f 


>r TAND must n 


ot be an 


jdd multip 


e of 90. 


n DMOD (a,b) is 


defined as a-ta/b 


] b, where 


[X) is th 


1 largest integer that 


does not exceec 


the magnitude 


}f X with 


sign the s 


sme as X. 



IBRARY SUBROUTINES 


AND FUNCTIONS 


he I j i i i io,j t i r iv 1 ' b /stem f J~T L 
•«tt- cC.KJL riMi ,i C'»K"> r u _ut c ! '» nil , unction 0' 

iproOtinC ri i i PI n > o j i / a ; n IP"1 v II -,''111 !,.[* 

■ d llii- ikiimuI t'jn.:t":.n i^iiiin 


ATE(a) or CALL DATE la) 


Returns i\ > ent Sate r, ' irmat 


JATEIal or CALL JDATE (a) 


'ii'j" c i ft- i ^1 in* fri t 
SCOPE 2.1) 


LC0MDU1 '" CALL SECOND In 


Rpturns ti'dt) 1 -" ' intra! p ocessot 
time a. != r L , >h r 


MEIa) or CALL TIME lal 
LOCK(a) or CALL CLOCKIa) 


Returns cu<>ei t time in format 
:; : Ahh. mm.ss A : .; ■ 


\LL DISPLA (H,k) 


P ac ; ! SO - 1 -ii «c ji No!! 'nth mes- 
sage H df«l 'eij^ iron ^p-esston or 
■... ; : : ;var jabie : fc injdayper ;; - : ';■ 


Ul REMARK (H) 


Places i-SQ qfjaractei H jlJerith mes- 
sage H In aciv ; ,:% f-90 'iha-acters for 
CCOPt *' 1 


ULSLITE(i) 


li pi i) 1 -' ligh i 6 LUin 
Off all 


^LL SLITETii.j) 


Spts j=2 , -er^r hjrt , is off j==1 if on 


\LL SSWTCH Hi) 


Set \~2 if w.tr* ; gfl j 1 if 3n 


ALL OVERLAY (fname.i,j,recal!,k) 


v^^N;Ga;j^siian■: : otferyy■.^ : .:;^; 


3.LLEXIT 


; : ■ ; : ^e>r|»if>ate&! program ::■;; .! ■ 


ML CHEKPTX (fitelist.nl 


"lake;, a chuck pOi nt dump ot all files ft 
fi i zeio if m ti noii?Hin d oherkpo.nt 
dun.|j ,i taken of all ilir til-. •ir>.*of'<"-l 

: : C : K lii efi st -■;;;; 


Ml RECOVR (subr.flags.ck) 


Cill- subf oit ahnoimal t^i nnnanon 
(notavdi'a'ile Lmcle) SCOPE 2 1) 


XLL DUMP la, ii,,(,. . . *„l'n l„\ 


1j n i ■>".< ( jcjs trip" ermti ites pro- 

:; : :■ ■ gram; exeeut iOB, : ; ■-; 


\LL PDUMP (a v b,,f, s n. h n'V 


Pp-i ip oragerand rei mS control to 
■; Stalling; pmcirarri; ;; ■ 


ib ftrstand i i ~ "' fjtc ^ i" ii v c j- dumped 


::::|il^Oi©r;; ■3,::0ctai ; flun-ip V 1 ' : 

. , . , f Addin i 1 a i i 1 , iu a • 1 - of a 
: - :f-1 - real ' du mp ' ■■ ' i '" :: \ - : ' ' , 7 ' '" ' , ; 

t and b Co > t se ! ~, «' SSes 

f=2, integer dump 1 



CM S If MACE 




:■ ? : ft Ir^s ;ft^#^.V;; ■■■■ 


! 1 -_ v . fcl '-) 




ii t i ] . 1 '1 ji 

** r -nu A ,. -g ,i 1 ' 3 1 , ma} 


AU >_T nu ,.»isgl 




Pi i' i b i 1 ir i!iC'3:oe 01 k 1 <M »>t s 1 f 


CALL SYSTEMC (nuin.speclitt) 




' 1 i di'dsrd rs r • 1 - j 


CALL i .NT RF.Ini, 




-Ertfblft. usei to input cuta without 
of ;im 


NUMEKfUn} 




H in 1 1 ^i t mi ^ 
lavt LlMERR call: n is a flumm,- 
. J ' .jjirvm 


t % -I A! ,L! in) 




1 1'.l! V.lluf - ^ 1 , 


I \L RAi , <_, {n ml 




Puts 1 1 Mf.it b e j s' ■ si upiu 


CALL OPENMS lu.ix.ingih t( 




Opel v Ml 5 ' I3"p M* 


' t. , -> ran r k) 




1 1 en '1" 


/\_L v |. n . { f> ft ,k,) -i 




* ft 1" Uln rri if 1 1 > 
1o nu... '.roi-PCje 


i ! LSllNi-i u.i i - 




t 1 c t ! ! 1 J . ( 

< > : . :- 1 i ' i ! ! n ■ :. i 


: ' Li -MS (ul 




Write', in<l*v ttotn t.eniral memory to 

f 1 , 1 1 , 1 , ; | 


: Q:: su-;!; : C- I: '' i;: i ::Ufi : i I- HisreiMter : ;. :: 






i'. Name of the aiay 


yqiifirita 


ii'iii'i ihi m \- irr t , 


lllyth L"i ]t < I . iJ, ' ': 

rridirer ituVi + 1; 

Vi "i , ,-, i 


luia 


Number Hicltiy, iitgth '■'-• entries in 
n"- '."( I 1 '* ni, in, 'i n u i>jfi 
M 


11 Fl !1 1 ui l"i(!-b 


IWm&tt! 

in. ctrr 
words 


■ ncli ., ' 1, ii.- [i ■ t ,CH. 
m .Lit, it- oi I - n. rt-ii 


1 n> r fn is e i 

f K i i f it [311 tt 

|h||]1 p -i|,i 1 < 1 

.', write at end-c 


lh 'I : I IK 

U-.i : 

f-fn'oi 


fjantitv )>*r;6pl *0 

M 1 pv [ 1 r v tHor 

1 i "VII ' , <> 1 1 , )[ » 

•rrvuicii itffetJ'.ilrl Cjfi Lv omitrcv) if no 


- jl'llllll L |, u v 

value). 1 is write :; 


fee ■ ir 
dhlrrtle 


m. lw) j l H„j (J rot m 1 .1 .1 ul , ( It 
mi-ci fl.ig 1 1 . 1 » it 1 >k 



JNIT (u) 


Returns buffer stilus on unit u" -1 




r i nit i dv r ni i) i i»J I. unu 




ru " r i'.(,ti'f' j r< ' r iH 




rtjdv f-w> k\ onot e i in ii»t"d 


:of !u) 


^!l-;::=l;:;: c Wk* ; or cnc o Hi w, \ i zw <.>. no 




nd ">l fil > '.''k OJtH • I 


OCHRC (n) 


- \ti , ih m i ii u b iff 




unit, it ieto, no read parity t-nu" 


LENGTH (u) or 


" 1 | . *-_ j< nh '1 ' 1. Lid 


Zkm LtNV ! ' (jtijiw i rii 


ii il oi n i c\ r iiuifc 




ai in y, ' t > >i i , ." n t t ■ euu 


fe*LL LABEL (u.labinlc) 


Sets t<ipf: jjtwl information: labinto 




i .. *, w << i 3t j i'ii i <g t ihe 




!■ ;■ ^.SwtiM j] : :::;; : : 


:ALi MO 1 EV (a.b.ri 


iSftl • '. IA ] '(V'J U Ol 1 .' 




ijr 4 t en p— iHiiJed > ! sMrrifje n 




mi mm < •• Bel \ >• ! > Mi. a lis 




>,.-'! Lin .ddsev. m , i ■ dntti to be 




I 'I' „ l! PI «. 




: ii : * tretv mg If ca f i t>». 


ZMA READEC (a,b,n) 


T j i->f„f - l i- 'ii ivt w<n i : i' ij 




' r.jStt".." * i i . ' .'It . 1 tilt 11 h 




.IK i i-iuVd i, .' u ije oi 




LCM block. 


CALL WRITI'C (a,b,n) 


*r' n cci'i! r ' » uii 1 i fi 




i t it ; i i-i f i-i'itr! r'jr rni'v' 




- - i i toi dgt? i i 




!: : ii i:]qM" : ;pi;rtK--; ; ii- ;;;i : 


CALL CONIMEC Uil or 


Connect* file to a tefminiH (not 


>AI t ;( N ^C (u,cs) 


available under SCOPE 2.1) 


CALL DISCO N (u) 


Hscoirvne iuie i tnnn j! 




v liable > nti i ' r ' n 



SAMPLE DECK STRUCTURES 

A job deck submitted for execution through a card reader begins with a job 
statement and ends with an end-of-information card (a 6/7/8/9 multipunch 
in column 1. The deck is divided into sections by an end-of-record card (a 
7/8/9 multipunch in column 1). Refer to the appropriate operating system 
reference manual for information concerning control statements. 



COMPILING AND EXECUTING A FORTRAN PROGRAM 

The following deck structure is used for simple compilation and execution 
of a FORTRAN source program. 



Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN. 

LGO. 

7/8/9 

PROGRAM MAIN 



END 

FUNCTION RTSM(A,B) 



END 

SUBROUTINE RUN(C) 



END 
7/8/9 



Data used in execution 

6/7/8/9 



COMPILING IN TIMESHARING MODE 

The following deck structure is used when TS compilation mode is desired. 



Job statement 
USER statement 
CHARGE statment 
ACCOUNT statment 

FTN(TS) 

7/8/9 



NOS only 
NOS only 

N05/BE and SCOPE 2 only 

j Timesharing mode is requested for 
\ compilation 



FORTRAN source deck 
6/7/8/9 



COMPILING A FORTRAN PROGRAM AND 
PRODUCING BINARY CARDS 

The following deck structure is used when the OPT=2 (full optimization) 
option of the FTN control card is desired. 



Job statement 
USER statement 

CHARGE statement 
ACCOUNT statement 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



FTN(B=PUNCHB,OPT=2) The file PUNCHB is punched at end-of-job 
7/8/9 

FORTRAN source deck 
6/7/8/9 



LOADING AND EXECUTING A BINARY PROGRAM 

The following deck structure is used to load and execute a program 
composed of binary object code. 



Job statement 

USER statement 

CHARGE statment 

ACCOUNT statement 

MAP(OFF) 

INPUT. 

7/8/9 

Binary deck 

6/7/9 

7/8/9 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



End-of-file; terminates load (NOS only) 

I Empty record; terminates load (NOS/BE 
I and SCOPE 2 only) 



7/8/9 

Data used during execution 
6/7/8/9 



COMPILING AND EXECUTING WITH 
DIFFERENT DATA DECKS 

The following deck structure is used to execute a program using two 
different data decks. The program is compiled only once but executes 
twice. 



Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
FTN. 

LGO„TAPEl. 
LGO„TAPE2. 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



Output is written on two separate files; 
data 1 is written on TAPE1, data 2 is 
written on TAPE2. 



7/8/9 



PROGRAM MAIN(INPUT.OUTPUT) 



END 
7/8/9 

Data 1 used during first execution. 
7/8/9 

Data 2 used during second execution. 
6/7/8/9 



COMPILING AND EXECUTING A FORTRAN 
SUBROUTINE AND A COMPASS SUBPROGRAM 

The following deck structure is used when compiling and executing a 
FORTRAN main program, FORTRAN subroutine, and a COMPASS 
subprogram. FORTRAN and COMPASS program unit source decks can be 
in any order. COMPASS source decks must conform with the format 
reguired by the COMPASS language. 



Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 

FTN(EL=A) 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 

i All diagnostics including ANSI are listed 
\ on file OUTPUT 



LGO. 
7/8/9 



PROGRAM DONE(INPUT,OUTPUT) 



END 

SUBROUTINE SKP1.P2) 



RETURN 

END 

IDENT SUB 
ENTRY Al 



END 
7/8/9 

Data used during execution 
6/7/8/9 



COMPILING AND EXECUTING WITH A RELOCATABLE 
BINARY PROGRAM 

The following deck structure is used when a FORTRAN source program is 

compiled and executed with a relocatable binary deck. 

Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN. 

LOAD(LGO) 

LOAD( INPUT) 

EXECUTE. 

7/8/9 

FORTRAN source program 
7/8/9 

Binary deck 
6/7/9 End-of-file; terminates load (NOS only) 



7/8/9 

7/8/9 

Data used during execution 

6/7/8/9 



I Empty record; terminates load (NOS/BE 
\ and SCOPE 2 only) 



COMPILING AND EXECUTING WITH OVERLAYS 

The following sample deck structure is used when compilation and 
execution Df a program with overlays is desired. 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



Job statement 

USER statement 

CHARGE statement 

ACCOUNT statement 

FTN. 

LOAD(LGO) 

NOGO. 

SUM. 

7/8/9 



OVERLAY(SUM,0,0) Main overlay source deck 

PROGRAM LEO(INPUT,OUTPUT) 



CALL GROUNDttu,0) 
CALL OVERLAYOHSUM,1,0) 



Call to primary overlay 



END 

SUBROUTINE GROUND(x.y) 



END 

OVERLAY(SUM,1,0) 



PROGRAM RDY 



CALL OVERLAY(3HSUM,l,l) 



END 
OVERLAY(SUM,l,D 



PROGRAM MLT 



Primary overlay source deck 



Call to secondary overlay 
Secondary overlay source deck 



END 
TIB/9 

Data used during execution 

6/7/8/9 



EXTERNAL DEBUGGING DECK 

The following deck structure is used when debugging of all program units is 
desired. The external debugging deck is placed immediately in front of the 
first source line of the first program unit. All program units (here, 
Program A and Subroutine B) are debugged unless limiting bounds are 
specified in the deck. 



Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN(D) 

LGO. 

7/8/9 

C$ DEBUG 

| External debugging deck 

PROGRAM A 



END 

SUBROUTINE B 



RETURN 
7/8/9 



Data used during execution 
6/7/8/9 



INTERSPERSED DEBUGGING STATEMENTS 

The following sample deck structure is used when interspersed debugging 
statements are desired. Debugging statements are inserted at the point in 
the program where they are activated. 

Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN(D) 

LGO. 

7/8/9 

PROGRAM MAIN 

Specification statements 



Executable statements 
C$ FUNCS __-, ,_ , , 

C$ CALLS DEBUG statements 

Executable statements 



C$ STORES(A) __„, ,_ . . 

C$ OFT(FUNCS) DEBUG statements 

Executable statements 



7/8/9 

Data used during execution 
6/7/8/9 



EXTERNAL DECK ON SEPARATE FILE 

The debugging deck is on file INPUT and the source deck on a named file. 
Alternatively, the debugging deck is placed on a separate file (external debugging 
deck) named by the D parameter on the FTN control statement and called in 
during compilation. All program units will be debugged (unless the program 
units to be debugged are specified in the deck). This positioning is useful when 
several jobs can be processed using the same debugging deck. 




_£: 



Debug Deck 



(Input) 



(Input) 



FTN(I=TAPE1,D> 
Compiler 




(Input) 



(Input) 



FTN(D=TAPE1) 
Compiler 



SORT/MERGE 4 AND 1 INTERFACE 

Sort/Merge 4 and 1 processing can be initiated through FORTRAN 
Extended call statements. Sort/Merge 4 and X uses the unused part of field 
length as a scratch area; if necessary, additional field length is obtained 
from the system. For this reason, the STATIC option of the FTN control 
statement must not be specified with programs using Sort/Merge 4 and 1. 
Refer to the Sort/Merge 4 and 1 Reference Manual for detailed 
information. 

The following statements initiate Sort/Merge 4 and 1 processing. 

CALL SMSORT(mrl) Sort-only or sort and merge processing. 

CALL SMSORTB(mrl,ba) Balanced tape sort under NOS and NOS/BE 
only. 

CALL SMSORTP(mrl,ba) Polyphase tape sort under NOS and NOS/BE 
only. 

CALL SMMERGE(mrl,ba) Merge only processing. 

mrl Maximum record length in characters of record to be sorted. 

ba Optional number of words of central memory used by Sort/Merge for 
working storage; applies only to NOS and NOS/BE (default 22000g) 

Optional total in decimal of large core memory used as a buffer 
area for all intermediate scratch files applies only to SCOPE 2. 

CALL SMFILE(dis,i/o,lfn,action) 

One call to SMFILE must be issued for each file unless the output file is 
handled by SMOWN. 

dis File processing; specified as follows: 

"SORT" File to be sorted. 

"MERGE" File to be merged. 

"OUTPUT" File to receive output. 

i/o Type of input/output; specified as follows: 

"FORMATTED" File acessed with formatted input/ 

"CODED" output. 

"BINARY" File accessed with unformatted input/ 

output. 

File accessed with CYBER Record 

Manager interface routines 



lfn Logical file name; can either be a unit number or the file name 

in nLfilename format. If i/o is specified as zero , lfn can be an 
array containing the file information table. 

action File disposition after sort or merge; specified as follows: 

"REWIND" 

"UNLOAD" 

"NONE" (default) 

CALL SMKEY(charpos,bitpos,nchar,nbits,code,colseq,order) 

SMKEY must be called once for each sort key. 

charpos Integer specifying the starting position of sort key counting 
from 1. 

bitpos Integer specifying the first bit of charpos counting from 1. 

nchar Number of characters in sort key. 

nbits Number of bits in excess of nchar. 

The remaining three parameters are optional. 

code Code used to interpret keys; specified as follows: 

"DISPLAY" Internal display code 

"FLOAT" Floating point data 

"INTEGER" Signed integer data 

"LOGICAL" Unsigned integer data (default) 

The following identifiers must be separated by commas as 
indicated. 



"DISPLAY", 

"SIGN", 

"LEADING" 

"DISPLAY", 
"SIGN", 

"TRAILING" 

"DISPLAY", 

"SEPARATE", 

"LEADING" 

"DISPLAY", 

"SEPARATE", 

"TRAILING" 



Numeric data in display code; sign 
present as overpunch at beginning of 
field (NOS and NOS/BE only). 

Numeric data in display code; sign 
present as overpunch at end of field. 



Numeric data in display code; sign is 
a separate character at beginning of 
field (NOS and NOS/BE only). 

Numeric data in display code; sign is 
a separate character at end of field 
(NOS and NOS/BE only). 



colseq Name of user-supplied collating sequence; can be used only if 
code is "DISPLAY". Possible collating sequences are the 
following: 



"ASCII6" 

"COBOL6" 

"DISPLAY" 

"INTBCD" 

Seqnam 



ASCII 6-bit collating sequence. 

COBOL 6-bit collating sequence. 

Internal display code collating sequence. 

Internal BCD collating sequence. 

Collating sequence defined by SMSEQ 

order Specifies order of sort processing as follows: 

"A" Ascending (default) 

"D" Descending 

CALL SMSEQ{seqnam,seqspec) 

SMSEQ defines a user's collating sequence. 

seqnam Name of user-supplied collating sequence 

seqspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
array must be terminated by a negative number. 

CALL SMEC3U(colseq,equspec) 

SMEQU defines two or more characters in a collating sequence as equal foi 
comparison purposes. 

colseq Name of the collating sequence; determined by a previous call tc 
SMKEY or SMSEQ. 

equspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
array must be terminated by a negative number. 

CALL SMOPT(optlist) 

SMOPT specifies special record handling options and must be called 
immediately after SMSORT or SMMERGE. If SMOPT is called more than 
once the last call overrides all previous calls. 

optlist Non-ordered series of options separated by commas; specified as 
follows: 



"VERIFY" 
"RETAIN" 



Check output for correct sequencing 



Retain records with identical sort keys in 
order of appearance on input file. 



Checkpoint dump at end-of-volume (NOS 
and NOS/BE only). 

Checkpoint dump after 50000 records (NOS 
and NOS/BE only). 

Checkpoint dump after n (decimal) records 
(NOS and NOS/BE only). 

No checkpoint dump (NOS and NOS/BE 
only). 

Suppress dayfile messages (NOS and 
NOS/BE only). 

Determines intermediate merge order 
(mo)! 2<mo<64 (NOS and NOS/BE only). 

"COMPARE" Use key comparison technique (NOS and 

NOS/BE only). 

"EXTRACT" Use key extraction technique (NOS and 

NOS/BE only). 

CALL SMOWN(exnumi,subnamei, . . . ,exnum n ,subname n ) 

exnurrtj Number of the owncode exit. 

subnamej Name of the user-supplied EXTERNAL owncode exit 

subroutine which exits through a call to system subroutine 
SMRTN. 



"VOLDUMP" 

"DUMP" 

"DUMP",n 

"NODUMP" 

"NODAY" 

"ORDER",mo 



entry 
exit 1 or 3 



SUBROUTINE subname(a,rl) 

CALL SMRTN(retaddr), for retaddr= 1 or 3. 



CALL SMRTN(retaddr,b,rl), for retaddr = 
or 2. 



No parameters are needed for exit number 1 if no input files 
are used. 



entry 
exit 2 or 4 



entry 
exit 5 



SUBROUTINE subname 

CALL SMRTN(retaddr), for retaddr = 0. 

CALL SMRTN(retaddr,b,rl), for retaddr = 1. 

SUBROUTINE subname(ai,rlx,a2,rl2) 

CALL SMRTN(b 1)r l;i,b2,rl2), for 
retaddr = 0. 

CALL SMRTN(bi,rli), for retaddr = 1. 



retaddr Return address 

Q Normal return address 

1 Normal return address + 1 

2 Normal return address + 2 

3 Normal return address + 3 

a,b Integer array of rl/10 words that contains 

the record stored when subname is called. 

rl Record length in characters. 

CALL SMTAPE(taplist) 

SMTAPE specifies all magnetic tape intermediate merge files (NOS and 
NOS/BE only). 

taplist List of names assigned to intermediate merge files. 

CALL SMEND 

SMEND is required to initiate execution of Sort/Merge 4 and 1. 

CALL SMABT 

SMABT terminates a sequence of Sort/Merge 4 and 1 calls without 
execution of Sort/Merge. 



:yber record manager interface 

"he FORTRAN user can access CYBER Record Manager facilities directly by 
ailing the following subprograms. File names used in the calls must not appear 
1 a PROGRAM statement. FIT field mnemonics used to represent parameters 
i the CALL statements are the same as the FIT field mnemonics defined in the 
1YBER Record Manager reference manual. These subprograms are not callable 
hrough SCOPE 2.1. Except for CALL FILExx, the order of parameters is fixed 
o that all parameters to the left of a desired option must be specified. Refer 
o either the CYBER Record Manager Basic Access Methods Reference Manual 
ir to the CYBER Record Manager Advanced Access Methods Reference Manual 
or more detailed information. 



:all check (fit) 



;all closem (m,cf,typ) 

;ALL DLTE (fit,ka,kp,0,ex) 



Determines I/O status for SQ and WA 
file types. 

Closes file for all file types. 

Deletes record for IS, DA, and AK file 
types. 

Writes end-of-partition for SQ file type. 



iALL ENDFILE (fit) 

;ALL FILExx (fit,keywordi,valuei,.... Establishes FIT for all file types. 

keyword n ,value n ) 
:ALL FITDMP (fit.d) 



;ALL FLUSH (afit) 
;ALL FLUSH! (fit) 



;all get 



(fit,wsa,< 3 >,k; 



irll 



iALL GETN (fit,wsa,ka,ex) 

;ALL GETP (fit,wsa,ptl, 4LSKIP,dx) 

:ALL OPENM (fit,pd,of) 



Dumps the contents of the FIT to error 
file ZZZZEG. 

Performs all file close operations but the 
files remain open. 

Performs all the file close operations for 
a single file. The file remains open. 

Reads record for all file types. 



Reads next record for IS, DA, and-AK 
file types. 

Reads partial record for SQ and WA 
file types. 

Opens file for all file types. 



;ALL PUT (fit,wsa,rl,< },kp,pos,ex) Writes record for all file types. 



;ALL PUTP (fit,wsa,ptl,rl,ex) 
^ALL REPLC (fit,wsa,rl,ka,kp,0,ex) 



;ALL REWND (fit) 



Writes partial record for SQ and WA 
file types. 

Replaces record for SQ, IS, DA, and AK 
file types. The parameters rl, ka and kp 
must be specified as zero for SQ file type. 

Rewinds file for SQ, IS, DA, and AK 

file types. 



CALL RMKDEF (fit,rkw,rkp,kl,0,kf. Defines primary or alternate key field 

ks,kg,kc,nl,ie,ch) in a record for IS, DA, and AK multiple- 

index file types. 



CALL SEEKF (fit,ka,kp,mkl,ex) 
CALL SKIP <fit,+count) 
CALL STARTM (fit,ka,kp,mkl,ex) 
CALL STOREF (fit,keyword,value) 
CALL WEOR (fit.lev) 

CALL WTMK (fit) 
IFETCH (fit.keyword) 



Initiates record search for IS, DA, and 
AK file types. 

Repositions file for SQ, IS, and AK file 
types. 

Positions an IS or AK file to a record 
that meets a specific condition. 

Sets FIT value in field named for all 
file types. 

Terminates S type record after PUTP, 
writes end-of-section or end-of-partition 
for SQ file type. 

Writes tape mark for SQ file type. 

Integer function. Retrieves contents of 
FIT field named for all file types. 



xx File organization mnemonic: 

SQ sequential files 

WA word addressable files 

IS indexed sequential files 

DA direct access files 

AK actual key files 

Multiple index processing is allowed for IS, DA, and AK file 
organizations. 

fit Name of the 35-word array containing the file information 

table (FIT) 

afit Name of the array containing a list of addresses of FITS; the 

array must be terminated by a word of zeros. 

keyword Name of a FIT field in L format 

value Value for FIT field specified by keyword 

pd Type of processing: 

5LINPUT read only 

6LOUTPUT write only 

3LI-0 read and write 

3LNEW IS, AK, or DA file to be created (write 

only) 



of Open flag; specifies position of file when opened as follows: 

1LR Rewind. 

1LN No file positioning. 

1LE File is positioned just before end-of-information. 
cf Close flag; specifies position of file after close as follows: 

ILR Rewind. 

1LN No rewind. 

ILL) Unload. 

3LRET Return. 

3LDIS Disconnect (terminal files only): 

3LDET No positioning; release buffer space and remove 
from active file list. 

typ Type of close to be performed on SQ files only; omitted for 

all other file organizations: 

6LVOLUME Volume close. 

4LFILE File close. 

wsa Working storage area. 

ka Address of key for DA, AK, or IS records. 

wa Word address for read or write. 

kp Beginning character position of key within ka; 0-9. 

mkl Major key length on IS files; symbolic key type. 

rl Record length in characters; 1 indicates positioning rather 

than length. 

ex Name of user owncode error exit subroutine; must be specified 

in an EXTERNAL statement. 

dx Name of end-of-data exit subroutine (EXTERNAL). 

pos Duplicate key processing; indicates action to be taken when a 

duplicate key is encountered: 

First record in a duplicate key chain will be 

deleted or replaced. 

count Number of logical records to be skipped; positive for forward 

skip, negative for backward skip. 

lev Level number for end-of-section; to 17g. 

ptl Partial transfer length in characters. 

4LSKIP Skip to beginning of next record before reading. 



rkw 

rkp 
kl 



Null suppression: = null values recorded (default). 
Include/exclude sparse control character; specified as follows: 

E Exclude alternate key value 

I Include alternate key value 

Characters that qualify as sparse control characters (maximum 36) 

FIT identifier. 

Relative keyword (0 = first word). 

Relative key position (0 = keyword aligned starting at rkw position. 

Key length in characters (1-255 for symbolic key; 10 for signed 
key). 

Key type: = symbolic; 1 = signed integer; 2 = unsigned integer. 

Summary index; reserved 0. 

Optional: substructure for each primary key list^ in the index: I = 
index-sequential; F = FIFO; U (default) -= unique; can be specified 
as L format Hollerith constant. If ks is specified, kg and kc must 
be defined. 

kg size of repeating group in which key resides (default = 0) 

or the index block size. 

kc occurrences of group (default = 0). 



POST MORTEM DUMF 

Post Mortem Dump (PMD) analyzes the execution-time errors in 
FORTRAN programs. To use PMD, the PMD parameter must be specified 
on the FTN control statement. PMD is then activated by a fatal error or 
by one of the user-callable subroutines PMDLOAD or PMDSTOP. 

CALL PMDARRY(i,j,k) Prints one, two, and three dimensional arrays 
when an abort, PMDLOAD or PMDSTOP is 
called; i, j, and k represent the first, second, and 
third dimensions respectively. 



CALL PMDDUMP 



Causes a dump of variables in the calling routine 
when an abort or PMDLOAD or PMDSTOP is 

called. 



CALL PMDLOAD Causes an immediate dump of variables in the 

calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. 



CALL PMDSTOP Causes an immediate dump of variables in the 

calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. The job is aborted. 



COMMON MEMORY MANAGER INTERFACE 

All Common Memory Manager (CMM) interfaces for NOS and NOS/BE are 
on the library SYMLIB. For a run using CMM interface routines, the user 
must either include the loader statement LDSET(LIB=SYMLIB) in the 
loader directives, or include a CALL SYMLIB subroutine call in the main 
program. 5COPE 2 users must specify SYMIO in the LDSET statement 
instead of SYMI IB. 

CALL CMMALF(ibksz,iszcde,igrpid,iblfwa) Allocates a fixed position 

block 

CALL CMMFRF(iblfwa) Frees a fixed position block 

when no longer needed 

iblksz Number of words required for block 

iszcds Size code: 

Fixed size block 

1 Block can grow at last word address 

2 Block can shrink at last word address 

4 Block can shrink at first word address 

5 Block can grow at first word address and shrink at 
last word address 

6 Block can shrink at first word address and last word 
address 

7 Block can shrink at first word address and last word 
address and grow at last word address 

igrpid Group identifier: 

Item does not belong to a group 

>0 The block is assigned to this group. (See Common 
Memory Manager Reference Manual.) 

iblfwa The first word address of a block allocated by CMM, value 

returned by a call to CMMALF. 

FORTRAN-CYBER INTERACTIVE 
DEBUG INTERFACE 

CYBER Interactive Debug (CID) is a debugging facility, available under 
NOS and NOS/BE only, which allows the user to monitor and control 
program execution from an interactive terminal. Debug tables must be 
produced during compilation to make all of the CID features available for 
use with FORTRAN programs. Debug tables are created if, prior to 
compilation, debug mode is turned on via the DEBUG control statement. 



DEBUG or DEBUG(ON) Turns on debug mode 

DEBUG(OFF) Turns off debug mode 

Alternatively, debug tables can be created by compiling the program using 
the DB-1D or DB option of the FTN control statement. If debug tables are 
not created during compilation, CID can be utilized by turning debug mode 
on via the DEBUG control statement prior to execution} however, not all of 
the CID features are available. Refer to the CYBER Interactive Debug 
Reference Manual for more information about CID. 



FORTRAN CONTROL STATEMENT 

The control statement FTN4 can be used interchangeably with the 
fallowing forms of the FTN control statement: 

FTN . comments 

FTNCpi, • * • ,P n )comments 

FTN,pj, . . . ,p n .comments 

The optional parameters, p lt can appear in any order. All parameters 
must be separated by commas. 

FORTRAN CONTROL STATEMENT PARAMETERS 

• A EXIT 

A=0 System advances to the next control statement 

omitted whether or not fatal a compile-time error occurs. 

A System branchs to the next EXIT or teminates if a fatal 

compile-time error occurs. 

• B BINARY OBJECT CODE FILE 

B Generated binary object code is placed on file LGO. 

omitted 

B=lfn Generated binary object code is placed on file Ifn. 

B=0 No binary object code is produced. 

• BL BURSTABLE LISTING 

BL=0 Output listing is generated in compact form, 

omitted 

BL Page ejects are generated between parts of output listing. 



C COMPASS ASSEMBLY 

C=0 The FORTRAN internal assembler is selected, 

omitted 

C The COMPASS assembler is selected. 

CC CONTROL STATEMENT CONTINUATION 

CC=0 The FTN control statement appears on one line only, 

omitted 

CC The FORTRAN compiler interprets the following control 

statement as a continuation of the FTN control statement* 

D DEBUGGING MODE PARAMETER 

D=0 Debug statements are ignored, 

omitted 

D=lfn Debug statements are on file lfn. 

D Debug statements are on file INPUT. 

DB CYBER INTERACTIVE DEBUG 

DB=0 No debug tables are created, 

omitted 

DB=ID Debug tables are created. This option must be specified 

DB if the DEBUG control statement is not specified but the 

program is to be debugged using CID. 

E EDITING 

E=0 Object file is generated in normal binary code, 

omitted 

E=lfn Object file is output as COMPASS line images on file lfn. 

E Object file is output as COMPASS line images on file 

COMPS. 

EL ERROR LEVEL 

EL=I Informative and fatal diagnostics are listed if OPT=Q, 

omitted 1, or 2; note, warning and fatal diagnostics are listed if in 
TS mode. 

EL=A All non-ANSI and fatal diagnostics are listed. Informative 

diagnostics are listed if OPT=0, 1, or 2; note and warning 
diagnostics are listed if in TS mode. 

EL=N Fatal diagnostics are listed if OPT=0, 1, or 2; note, 

warning, and fatal diagnostics are listed if in TS mode. 



EL=W Fatal diagnostics are listed if OPT=0, 1, or 2; warning and 

fatal diagnostics are listed if in TS mode. 

EL=F Fatal diagnostics are listed. 

ER ERROR RECOVERY 

ER=0 Code is generated for object-time reprieve. (Default for 

OPT=l, 2) 

ER No code is generated for object-time reprieve. (Default 

for TS and OPT=0) 

G SOURCE OF SYSTEM TEXT 



G=0 
omitted 



System text loading from sequential binary file i 
prevented. 



G=lfn First sytem text overlay is loaded from file lfn. 

G=lfn/ovl System text overlay is loaded from file lfn. 

G System text overlay is loaded from file SYSTEXT. 

GO LOAD AND GO 

GO=0 The binary object file is not loaded and executed at the 

omitted end of compilation. 

GO The binary object file is loaded and executed at the end of 

compilation. 

I SOURCE INPUT FILE 

I=INPUT Source code is on file INPUT, 
omitted 

I=lfn Source code is on file lfn. 

I Source code is on file COMPILE. 

L LIST OUTPUT FILE 

Listable output is written on file OUTPUT. 



L 
omitted 



L=lfn Listable output is written on file lfn. 

L=0 Fatal diagnostics and the statements that caused them 

are listed on the file OUTPUT. All other compile-time 
output is suppressed. 



LCM LEVEL 2 AND LEVEL 3 STORAGE ACCESS 

LCM=D Direct mode (17-bit address mode) is selected for 

omitted ievel 2 or 3 data. 

LCM=I Indirect mode (21-bit address mode) is selected for level 2 

or 3 data. TS mode always uses 21-bit addressing for 
level 2 or 3 data. 

Level 2 data applies only to the CYBER 170 Model 176, CYBER 70 
Model 7600 computers. 

ML MODLEVEL MICRO 

ML The current date in the form yyddd is used for the 

omitted MODLEVEL micro. 

ML=n The value specified by n (1-7 letters or digits) is used for 

the MODLEVEL micro. 

OL OBJECT LIST 

OL=0 No object code is listed, 

omitted 

OL Object code is listed on list output file. 

OPT OPTIMIZATION 

OPT=l Standard compilation and execution are activated, 

omitted 

OPT=0 Fast compilation and the T and ER options are activated. 

OPT=2 Fast execution is activated. 

OPT 

P PAGINATION OF OUTPUT LISTING 

P=0 Page numbering begins at 1 for each subprogram, 

omitted 

P Page numbering is continuous across program units. 

PD PRINT DENSITY 

PD=6 Compile-time listings are 6 lines per inch, 

omitted 

PD=8 Compile-time listings are 8 lines per inch. 

PD 



PL PRINT LIMIT 

PL=n Maximum number of records that can be written to file 

OUTPUT at execution time is set by n. (Default PL=5000.) 

PMD POST MORTEM DUMP 

PMD=0 No symbol tables are created, 

omitted 

PMD Symbol tables that are accessed by the Post Mortem 

Dump facility are generated. PMD must be specified if 
the facility is to be used. 

PS PAGE SIZE 

PS=n Maximum number of lines per page including headers for 

compiler listings is set by n. (Default PS=60.) 

PW PAGE WIDTH 

PW=n Number of characters (50-136) on a line of Iistable output 

in TS mode is set by n. (Default PW=126.) 

PW Number of characters on a line of Iistable output is set to 

72. (Default for files connected to a terminal.) 

Q PROGRAM VERIFICATION 

Q=0 Normal compilation is produced, 

omitted 

Q The compiler performs a full syntactic scan of the 

program, but no object code is produced. 

R SYMBOLIC REFERENCE MAP 

R=l A short map (symbols, addresses, properties, DO loop 

omitted map) is produced. 

R=0 No map is produced. 

R=2 A long map (short map plus reference by line number) 

R is produced. 

R=3 A long map plus a listing of common block numbers and 

equivalence classes is produced. In TS mode R=3 is 
identical to R=2. 



ROUND ROUNDED ARITHMETIC COMPUTATIONS 

ROUND=0 Arithmetic computations are not rounded, 
omitted 

ROUND=op The hardware rounding features are selected for the 
arithmetic operators specified by op (+ - * /). 

ROUND The hardware rounding features are selected for the 
arithmetic operations + - * /. 

S SYSTEM TEXT FILE 

S=ovl System text overlay loaded from job's current library set. 

S=lib/ovl The system text overlay named ovl is loaded from the 

library called lib which can be either a user library file or 
a system library. 

S=0 No system text file is loaded if COMPASS is called to 

assemble any intermixed program. (Default if G^O.) 

S The system text overlay named SYSTEXT is loaded from 

the job's current library set. (Default if G=0.) 

SEQ SEQUENCED INPUT FILE 

SEQ=0 Source code is in standard FORTRAN format, 

omitted 

SEQ Source code is in sequenced line format. 

SL SOURCE LIST 

SL The source code is listed on the file specified by the 

omitted L parameter. 

SL=Q. No source code is listed, 

STATIC STATIC LOADING 

STATIC=Q Dynamic memory management is used at execution 
omitted time; no LDSET directives are generated. 

STATIC Dynamic memory management is inhibited; a set of 

LDSET and USE directives (NOS and NOS/BE only) are 
generated. 

SYSEDIT SYSTEM EDITING 

SYSEDIT=0 All input/output references are accomplished directly, 
omitted 

SYSEDIT All input/output references are accomplished indirectly. 



T ERROR TRACEBACK 

T=0 No traceback occurs when an error is detected, 

omitted 

T A full error traceback occurs when an error is detected. 

TS TIMESHARING MODE 

TS=0 OPT=l is selected, 

omitted 

T TS mode single pass compilation is selected. 

UO UNSAFE OPTIMIZATION 

UO-0 Unsafe optimization is not performed, 

omitted 

UO Potentially unsafe operations are performed when OPT=2. 

X EXTERNAL TEXT NAME 

X The file OPL is the source of external text (XTEXT). 

omitted 

X=Ifn The file Ifn is the source of external text (XTEXT). 

Z ZERO 

Z=0 No zero word parameter list is passed, 

omitted 

Z All subroutine calls having no parameters are forced to 

pass a parameter list consisting of a zero word. 
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